home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / demos / mail / scripts.cst / 00003.ls < prev    next >
Encoding:
Text File  |  1996-07-07  |  20.9 KB  |  775 lines
  1. on D29
  2.   global QTsprite, QTspriteDuration, QTspriteName, TC
  3.   set event1 = 353  -- boy
  4.   set event2 = 562  -- children
  5.   set event3 = 1007 -- nightmare
  6.   set event4 = 1132 -- xmas
  7.   set event5 = 1313 -- letters
  8.   set event6 = 1402 -- adults
  9.   set event7 = 1632 -- muffin
  10.   set event8 = 1702 -- mutant
  11.   set event9 = 1974 -- sweet
  12.   
  13.   
  14.   
  15.   
  16.   if (TC > event1 and TC <= event2 - 1) then
  17.     set the visible of sprite 6 to TRUE 
  18.     
  19.   else if (TC > event2 and TC <= event3 - 1) then
  20.     set the visible of sprite 7 to TRUE 
  21.   else if (TC > event3 and TC <= event4 - 1) then
  22.     set the visible of sprite 8 to TRUE  
  23.   else if (TC > event4 and TC <= event5 - 1) then
  24.     set the visible of sprite 9 to TRUE  
  25.   else if (TC > event5 and TC <= event6 - 1) then
  26.     set the visible of sprite 10 to TRUE 
  27.   else if (TC > event6 and TC <= event7 - 1) then
  28.     set the visible of sprite 11 to TRUE 
  29.   else if (TC > event7 and TC <= event8 - 1) then
  30.     set the visible of sprite 12 to TRUE  
  31.   else if (TC > event8 and TC <= event9 - 1) then
  32.     set the visible of sprite 13 to TRUE  
  33.   else if (TC > event9 and TC <= event9 + 30) then
  34.     set the visible of sprite 14 to TRUE   
  35.     
  36.     
  37.   end if
  38.   return
  39.   
  40.   
  41. end
  42.  
  43.  
  44. on D29a
  45.   global QTsprite, QTspriteDuration, QTspriteName, TC
  46.   -- Sweet rationing movie play here
  47. end
  48.  
  49. on D30
  50.   global hblind, vblind, wipeleft
  51.   global QTsprite, QTspriteDuration, QTspriteName, TC
  52.   
  53.   set event1 = 190 --
  54.   set event2 = 290 --
  55.   set event3 = 350 --
  56.   set event4 = 410 --
  57.   set event5 = 450 --
  58.   if (TC > event1 and TC <= event2) then
  59.     doEvent1 6, TRUE, vblind, 1, 8, FALSE  
  60.   else if (TC > event2 and TC <= event3) then
  61.     doEvent2 7, TRUE, hblind, 1, 8, FALSE 
  62.   else if (TC > event3 and TC <= event4) then
  63.     doEvent3 8, TRUE, vblind, 1, 12, FALSE      
  64.   else if (TC > event4 and TC <= event5) then
  65.     doEvent4 9, TRUE, hblind, 1, 12, FALSE 
  66.   else if (TC > event5 and TC <= event5 +  50) then
  67.     doEvent5 10, TRUE, vblind, 1, 12, FALSE 
  68.     
  69.   end if 
  70.   
  71.   
  72.   return
  73.   
  74. end
  75.  
  76. on D31
  77.   global QTsprite, QTspriteDuration, QTspriteName, TC
  78.   set event1 = 20  --
  79.   set event2 = 100 --
  80.   set event3 = 200 --
  81.   set event4 = 350 --
  82.   set event5 = 500 --
  83.   set event6 = 650 --
  84.   set event7 = 800 --  
  85.   
  86.   if (TC > event1 and TC <= event2 - 1) then
  87.     set the visible of sprite 6 to TRUE     
  88.   else if (TC > event2 and TC <= event3 - 1) then
  89.     set the visible of sprite 7 to TRUE 
  90.   else if (TC > event3 and TC <= event4 - 1) then
  91.     set the visible of sprite 8 to TRUE  
  92.   else if (TC > event4 and TC <= event5 - 1) then
  93.     set the visible of sprite 9 to TRUE  
  94.   else if (TC > event5 and TC <= event6 - 1) then
  95.     set the visible of sprite 10 to TRUE 
  96.   else if (TC > event6 and TC <= event7 - 1) then
  97.     set the visible of sprite 11 to TRUE 
  98.   end if
  99.   return
  100.   
  101. end
  102.  
  103. on D32
  104.   global QTsprite, QTspriteDuration, QTspriteName, TC
  105.   global done1, done2, done3
  106.   global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
  107.   global hEdgesin, vblind, hblind, stripsBottomLeft
  108.   
  109.   set event1 = 100  --
  110.   set event2 = 230 --
  111.   set event3 = 320 --
  112.   set event4 = 400 --
  113.   set event5 = 550 --
  114.   
  115.   if (TC > event1 and TC <= event2) then
  116.     doEvent1 6, TRUE, wipedown, 1, 12, FALSE  
  117.   else if (TC > event2 and TC <= event3) then
  118.     doEvent2 7, TRUE, wipedown, 1, 12, FALSE 
  119.   else if (TC > event3 and TC <= event4) then
  120.     doEvent3 8, TRUE, wipedown, 1, 12, FALSE  
  121.   else if (TC > event4 and TC <= event5) then
  122.     doEvent4 9, TRUE, vblind, 1, 8, FALSE          
  123.   end if   
  124.   
  125.   return
  126.   
  127. end
  128.  
  129.  
  130. on D33
  131.   global QTsprite, QTspriteDuration, QTspriteName, TC
  132.   global done1
  133.   set event1 = 150  --
  134.   set event2 = 300 --  
  135.   
  136.   if (TC > event1 and TC <= event2 - 1) then
  137.     set the visible of sprite 6 to TRUE   
  138.     if done1 <> the frame then
  139.       puppetTransition 49, 1, 2, FALSE
  140.       set done1 = the frame
  141.       updatestage
  142.       
  143.     end if
  144.   end if
  145.   
  146.   return
  147.   
  148. end
  149.  
  150. on D34
  151.   global QTsprite, QTspriteDuration, QTspriteName, TC
  152.   
  153.   set event1 = 350  --
  154.   set event2 = 510 --
  155.   set event3 = 650 --
  156.   set event4 = 750 --
  157.   
  158.   
  159.   if (TC > event1 and TC <= event2 - 1) then
  160.     set the visible of sprite 6 to TRUE     
  161.   else if (TC > event2 and TC <= event3 - 1) then
  162.     set the visible of sprite 7 to TRUE      
  163.   end if
  164.   
  165.   return
  166.   
  167.   
  168. end
  169.  
  170. on D35
  171.   global QTsprite, QTspriteDuration, QTspriteName, TC
  172.   set event1 = 150 --
  173.   set event2 = 300 --
  174.   set event3 = 450 --
  175.   set event4 = 575 --
  176.   set event5 = 650 --
  177.   set event6 = 700 --
  178.   set event7 = 400 --
  179.   
  180.   if (TC > event1 and TC <= event2 - 1) then
  181.     set the visible of sprite 6 to TRUE 
  182.     
  183.   else if (TC > event2 and TC <= event3 - 1) then
  184.     set the visible of sprite 7 to TRUE 
  185.   else if (TC > event3 and TC <= event4 - 1) then
  186.     set the visible of sprite 8 to TRUE  
  187.   else if (TC > event4 and TC <= event5 - 1) then
  188.     set the visible of sprite 9 to TRUE  
  189.   else if (TC > event5 and TC <= event6 - 1) then
  190.     set the visible of sprite 10 to TRUE 
  191.     
  192.   end if
  193.   return
  194.   
  195. end
  196.  
  197. on D36
  198.   global QTsprite, QTspriteDuration, QTspriteName, TC
  199.   
  200.   return
  201.   
  202. end
  203.  
  204. on D37
  205.   global QTsprite, QTspriteDuration, QTspriteName, TC
  206.   global done1, done2
  207.   
  208.   set event1 = 391 -- saw
  209.   set event2 = 494 -- wore
  210.   set event3 = 604 -- thought
  211.   set event4 = 725 -- bought
  212.   set event5 = 841 -- suffered
  213.   set event6 = 941 -- celebrated
  214.   set event7 = 1200 -- vote
  215.   
  216.   if (TC > event1 and TC <= event2) then
  217.     set the visible of sprite 6 to TRUE     
  218.   else if (TC > event2 and TC <= event3) then
  219.     set the visible of sprite 7 to TRUE 
  220.   else if (TC > event3 and TC <= event4) then
  221.     set the visible of sprite 8 to TRUE  
  222.   else if (TC > event4 and TC <= event5) then
  223.     set the visible of sprite 9 to TRUE  
  224.   else if (TC > event5 and TC <= event6) then
  225.     set the visible of sprite 10 to TRUE 
  226.   else if (TC > event6 and TC <= event7) then
  227.     set the visible of sprite 11 to TRUE 
  228.   end if
  229.   
  230.   return
  231.   
  232. end
  233.  
  234.  
  235. on D37a
  236.   global QTsprite, QTspriteDuration, QTspriteName, TC
  237.   global done1, done2
  238.   
  239.   set event7 = 150 -- vote
  240.   set event8 = 315 -- powerful
  241.   set event8a = 495 -- whims
  242.   set event8b = 532 -- work
  243.   set event8c = 580 -- fear
  244.   set event9 =  629 -- pride
  245.   set event10 = 1096 -- arrogance
  246.   set event11 = 1153 -- uneasy
  247.   set event12 = 1290  -- bigotry
  248.   set event13 = 1421 -- savagery
  249.   set event14 = 1556 -- Nelson mandela
  250.   set event15 = 1821 -- politicians
  251.   set event16 = 2108 -- winston churchill
  252.   set event17 = 2200
  253.   
  254.   
  255.   if (TC > event7 and TC <= event8) then
  256.     set the visible of sprite 6 to TRUE  
  257.   else if (TC > event8 and TC <= event8a) then
  258.     set the visible of sprite 7 to TRUE 
  259.   else if (TC > event8a and TC <= event8b) then
  260.     set the visible of sprite 8 to TRUE 
  261.   else if (TC > event8b and TC <= event8c) then
  262.     set the visible of sprite 9 to TRUE 
  263.   else if (TC > event8c and TC <= event9) then
  264.     set the visible of sprite 10 to TRUE 
  265.   else if (TC > event9 and TC <= event10) then
  266.     set the visible of sprite 11 to TRUE          
  267.     
  268.   end if
  269.   
  270.   return
  271.   
  272. end
  273.  
  274. on D37a2
  275.   global QTsprite, QTspriteDuration, QTspriteName, TC
  276.   global done1, done2
  277.   
  278.   
  279.   set event10 = 216 -- arrogance
  280.   set event11 = 273 -- uneasy
  281.   set event12 = 430  -- bigotry
  282.   set event13 = 561 -- savagery
  283.   set event14 = 696 -- Nelson mandela
  284.   set event15 = 961 -- politicians
  285.   set event16 = 1248 -- winston churchill
  286.   set event17 = 1340
  287.   
  288.   
  289.   if (TC > event10 and TC <= event11) then
  290.     set the visible of sprite 12 to TRUE  
  291.   else if (TC > event11 and TC <= event12) then
  292.     set the visible of sprite 13 to TRUE  
  293.   else if (TC > event12 and TC <= event13) then
  294.     set the visible of sprite 14 to TRUE  
  295.   else if (TC > event13 and TC <= event14) then
  296.     set the visible of sprite 15 to TRUE  
  297.   else if (TC > event14 and TC <= event15) then
  298.     set the visible of sprite 16 to TRUE  
  299.   else if (TC > event15 and TC <= event16) then
  300.     hidesprites 6, 16
  301.     set the visible of sprite 17 to TRUE    
  302.     if done1 <> the frame then
  303.       puppetTransition 49, 1, 3, FALSE
  304.       set done1 = the frame
  305.       updatestage      
  306.     end if    
  307.   else if (TC > event16 and TC <= event17) then
  308.     set the visible of sprite 18 to TRUE  
  309.     set the visible of sprite 17 to FALSE 
  310.     if done2 <> the frame then
  311.       puppetTransition 05, 1, 4, FALSE
  312.       set done2 = the frame
  313.       updatestage      
  314.     end if
  315.     
  316.   end if
  317.   
  318.   return
  319.   
  320. end
  321.  
  322.  
  323. on D37B
  324.   global QTsprite, QTspriteDuration, QTspriteName, TC
  325.   global done1, done2, done3, done4, done5, done6, done7
  326.   global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
  327.   global hEdgesin, vblind, hblind, stripsBottomLeft
  328.   
  329.   set event1 = 445 -- baird     6
  330.   set event2 = 487 -- bleirot   7
  331.   set event3 = 553 -- langtree  8
  332.   set event4 = 591 -- Chaplin   9
  333.   set event5 = 648 -- Marconi   10
  334.   set event6 = 697 -- Mussolini 11
  335.   set event7 = 761 -- Kipling   12
  336.   set event8 = 806 -- Shaw      13
  337.   set event9 = 994 -- Christie  14
  338.   
  339.   
  340.   if (TC > event1 and TC <= event2) then
  341.     set the visible of sprite 6 to TRUE     
  342.   else if (TC > event2 and TC <= event3) then
  343.     set the visible of sprite 7 to TRUE 
  344.   else if (TC > event3 and TC <= event4) then
  345.     set the visible of sprite 8 to TRUE  
  346.   else if (TC > event4 and TC <= event5) then
  347.     set the visible of sprite 9 to TRUE  
  348.   else if (TC > event5 and TC <= event6) then
  349.     set the visible of sprite 10 to TRUE 
  350.   else if (TC > event6 and TC <= event7) then
  351.     set the visible of sprite 11 to TRUE 
  352.   else if (TC > event7 and TC <= event8) then
  353.     set the visible of sprite 12 to TRUE  
  354.   else if (TC > event8 and TC <= event9) then
  355.     set the visible of sprite 13 to TRUE  
  356.     
  357.   end if
  358.   
  359.   return
  360.   
  361. end
  362.  
  363.  
  364. on D37B2
  365.   global QTsprite, QTspriteDuration, QTspriteName, TC
  366.   global done1, done2, done3, done4, done5, done6, done7
  367.   global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
  368.   global hEdgesin, vblind, hblind, stripsBottomLeft
  369.   
  370.   set fiddle = 900
  371.   
  372.   set event9 = 994 - fiddle  -- Christie  14
  373.   set event10 = 1034 - fiddle -- Crippen 15
  374.   set event11 = 1081 - fiddle -- Ellis   16
  375.   set event12 = 1124 - fiddle -- Topliss  17
  376.   set event13 = 1164 - fiddle -- Haigh    18
  377.   set event14 = 1290 - fiddle -- Blake    19
  378.   set event15 = 1348 - fiddle -- Blunt    20
  379.   set event16 = 1404 - fiddle -- burgess  21
  380.   set event17 = 1434 - fiddle -- maclean  22
  381.   set event18 = 1483 - fiddle -- Philby   23
  382.   set event19 = 1588 - fiddle -- Mata Hari 24
  383.   set event20 = 1750 - fiddle -- Earthquake 25
  384.   set event21 = 1789 - fiddle -- Typhoon    26
  385.   set event22 = 1849 - fiddle -- pit        27
  386.   set event23 = 1909 - fiddle -- air disaster 28
  387.   set event24 = 2196 - fiddle -- titanic 29
  388.   set event25 = 2367 - fiddle -- captain scott 30
  389.   set event26 = 2530 - fiddle
  390.   
  391.   
  392.   if (TC > event9 and TC <= event10) then
  393.     set the visible of sprite 14 to TRUE  
  394.     if done1 <> the frame then
  395.       hidesprites 6,13
  396.       --puppetTransition wipedown, 1, 12, FALSE
  397.       set done1 = the frame
  398.       updatestage      
  399.     end if
  400.     
  401.   else if (TC > event10 and TC <= event11) then
  402.     set the visible of sprite 15 to TRUE
  403.     updatestage
  404.   else if (TC > event11 and TC <= event12) then
  405.     set the visible of sprite 16 to TRUE  
  406.     updatestage
  407.   else if (TC > event12 and TC <= event13) then
  408.     set the visible of sprite 16 to TRUE 
  409.     set the visible of sprite 17 to TRUE  
  410.     updatestage
  411.   else if (TC > event13 and TC <= event14) then
  412.     set the visible of sprite 18 to TRUE
  413.     updatestage
  414.   else if (TC > event14 and TC <= event15) then
  415.     set the visible of sprite 19 to TRUE  
  416.     if done2 <> the frame then
  417.       hidesprites 6,18
  418.       set done2 = the frame
  419.       updatestage      
  420.     end if
  421.     
  422.   else if (TC > event15 and TC <= event16) then
  423.     set the visible of sprite 20 to TRUE  
  424.   else if (TC > event16 and TC <= event17) then
  425.     set the visible of sprite 21 to TRUE  
  426.   else if (TC > event17 and TC <= event18) then
  427.     set the visible of sprite 22 to TRUE
  428.   else if (TC > event18 and TC <= event19) then
  429.     set the visible of sprite 23 to TRUE 
  430.   else if (TC > event19 and TC <= event20) then
  431.     set the visible of sprite 24 to TRUE  
  432.     if done3 <> the frame then
  433.       hidesprites 6,23
  434.       puppetTransition hcentreout, 1, 4, FALSE
  435.       set done3 = the frame
  436.       updatestage      
  437.     end if
  438.     
  439.   else if (TC > event20 and TC <= event21) then
  440.     set the visible of sprite 25 to TRUE  
  441.   else if (TC > event21 and TC <= event22) then    
  442.     set the visible of sprite 26 to TRUE       
  443.   else if (TC > event22 and TC <= event23) then
  444.     set the visible of sprite 27 to TRUE 
  445.   else if (TC > event23 and TC <= event24) then
  446.     set the visible of sprite 28 to TRUE 
  447.   else if (TC > event24 and TC <= event25) then
  448.     set the visible of sprite 29 to TRUE 
  449.   else if (TC > event25 and TC <= event26) then
  450.     set the visible of sprite 30 to TRUE 
  451.     if done4 <> the frame then
  452.       hidesprites 24,29
  453.       puppetTransition wipedown, 1, 4, FALSE
  454.       set done4 = the frame
  455.       updatestage      
  456.     end if
  457.   end if
  458.   
  459.   
  460.   
  461.   
  462.   return
  463.   
  464. end
  465.  
  466.  
  467. on D37C
  468.   global QTsprite, QTspriteDuration, QTspriteName, TC
  469.   
  470.   return
  471.   
  472. end
  473.  
  474.  
  475. on D38
  476.   global QTsprite, QTspriteDuration, QTspriteName, TC
  477.   global done1, done2, done3, done4, done5, done6, done7
  478.   global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
  479.   global hEdgesin, vblind, hblind, stripsBottomLeft
  480.   
  481.   set event1 = 289  -- royal family
  482.   set event2 = 497 -- queen vic
  483.   set event3 = 631 -- despair
  484.   set event4 = 837 -- king george
  485.   set event5 = 992 -- respect
  486.   set event6 = 1050 --
  487.   
  488.   if (TC > event1 and TC <= event2) then
  489.     set the visible of sprite 6 to TRUE  
  490.   else if (TC > event2 and TC <= event3) then
  491.     set the visible of sprite 7 to TRUE 
  492.   else if (TC > event3 and TC <= event4) then
  493.     set the visible of sprite 8 to TRUE
  494.     set the visible of sprite 7 to FALSE
  495.     if done1 <> the frame then
  496.       hidesprites 24,29
  497.       puppetTransition vblind, 1, 4, FALSE
  498.       set done1 = the frame
  499.       updatestage      
  500.     end if
  501.     
  502.   else if (TC > event4 and TC <= event5) then
  503.     set the visible of sprite 9 to TRUE  
  504.   else if (TC > event5 and TC <= event6) then
  505.     set the visible of sprite 10 to TRUE 
  506.     
  507.     
  508.     
  509.   end if
  510.   
  511.   return
  512.   
  513. end
  514.  
  515. on D39
  516.   global QTsprite, QTspriteDuration, QTspriteName, TC
  517.   global done1, done2, done3, done4, done5, done6, done7
  518.   global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
  519.   global hEdgesin, vblind, hblind, stripsBottomLeft
  520.   set event1 = 405 -- ali        6
  521.   set event2 = 448 -- abrahams   7
  522.   set event3 = 509 -- bannister   8
  523.   set event4 = 565 -- botham     9
  524.   set event5 = 613 -- coe        10
  525.   set event6 = 681 -- compton    11
  526.   set event7 = 760 -- best      12
  527.   set event8 = 817 -- dixie   13
  528.   set event9 = 870 -- matthews 14
  529.   set event10 = 943 -- fred perry  15
  530.   set event11 = 990 -- virginia wade 16
  531.   set event12 = 1027 -- shergar 17
  532.   set event13 = 1126 --  red rum 18
  533.   set event14 =  1171 -- mick     19
  534.   set event15 = 1235 -- lara    20
  535.   set event16 =  1311 --   lomu  21
  536.   set event17 =  1504 -- index  22
  537.   set event18 =  1889 -- jim corbett   23
  538.   set event19 = 1979 -- cantona 24  
  539.   
  540.   if (TC > event1 and TC <= event2) then
  541.     set the visible of sprite 6 to TRUE  
  542.   else if (TC > event2 and TC <= event3) then
  543.     set the visible of sprite 7 to TRUE 
  544.   else if (TC > event3 and TC <= event4) then
  545.     set the visible of sprite 8 to TRUE  
  546.   else if (TC > event4 and TC <= event5) then
  547.     set the visible of sprite 9 to TRUE  
  548.   else if (TC > event5 and TC <= event6) then
  549.     set the visible of sprite 10 to TRUE 
  550.   else if (TC > event6 and TC <= event7) then
  551.     set the visible of sprite 11 to TRUE 
  552.   else if (TC > event7 and TC <= event8) then
  553.     set the visible of sprite 12 to TRUE  
  554.   else if (TC > event8 and TC <= event9) then
  555.     set the visible of sprite 13 to TRUE  
  556.   else if (TC > event9 and TC <= event10) then
  557.     set the visible of sprite 14 to TRUE  
  558.   else if (TC > event10 and TC <= event11) then
  559.     set the visible of sprite 15 to TRUE
  560.   else if (TC > event11 and TC <= event12) then
  561.     set the visible of sprite 16 to TRUE  
  562.   else if (TC > event12 and TC <= event13) then
  563.     set the visible of sprite 17 to TRUE  
  564.     if done1 <> the frame then
  565.       hidesprites 6,16
  566.       puppetTransition hblind, 1, 8, FALSE
  567.       set done1 = the frame
  568.       updatestage            
  569.     end if
  570.   else if (TC > event13 and TC <= event14) then
  571.     set the visible of sprite 18 to TRUE
  572.   else if (TC > event14 and TC <= event15) then
  573.     set the visible of sprite 19 to TRUE      
  574.   else if (TC > event15 and TC <= event16) then
  575.     set the visible of sprite 20 to TRUE  
  576.   else if (TC > event16 and TC <= event17) then
  577.     set the visible of sprite 21 to TRUE      
  578.   end if
  579.   
  580.   return
  581.   
  582. end
  583.  
  584.  
  585. on D39B
  586.   global QTsprite, QTspriteDuration, QTspriteName, TC
  587.   global hblind, vblind, wipedown
  588.   set event1 = 30 --
  589.   set event2 = 120 --
  590.   set event3 = 280 --
  591.   set event4 = 450 --
  592.   set event5 = 590
  593.   
  594.   if (TC > event1 and TC <= event2) then
  595.     doEvent1 6, TRUE, wipedown, 1, 4, FALSE  
  596.   else if (TC > event2 and TC <= event3) then
  597.     doEvent2 7, TRUE, wipedown, 1, 4, FALSE 
  598.   else if (TC > event3 and TC <= event4) then
  599.     doEvent3 8, TRUE, wipedown, 1, 4, FALSE      
  600.   else if (TC > event4 and TC <= event5) then
  601.     doEvent4 9, TRUE, wipedown, 1, 4, FALSE 
  602.   end if 
  603.   return
  604.   
  605. end
  606.  
  607.  
  608. on D40
  609.   global QTsprite, QTspriteDuration, QTspriteName, TC
  610.   
  611.   return
  612.   
  613. end
  614.  
  615. on D41
  616.   global QTsprite, QTspriteDuration, QTspriteName, TC
  617.   global hblind, vblind, wipeleft
  618.   set event1 = 90 --
  619.   set event2 = 180 --
  620.   set event3 = 280 --
  621.   set event4 = 410 --
  622.   
  623.   if (TC > event1 and TC <= event2) then
  624.     doEvent1 6, TRUE, wipeleft, 1, 8, FALSE  
  625.   else if (TC > event2 and TC <= event3) then
  626.     doEvent2 7, TRUE, wipeleft, 1, 8, FALSE 
  627.   else if (TC > event3 and TC <= event4) then
  628.     doEvent3 8, TRUE, vblind, 1, 12, FALSE  
  629.   end if 
  630.   return
  631.   
  632. end
  633.  
  634. on D42
  635.   global QTsprite, QTspriteDuration, QTspriteName, TC
  636.   set event1 = 21 -- health
  637.   set event2 = 86  -- advert
  638.   set event3 = 173 + 30 -- madcap
  639.   set event4 = 243 + 50 -- ideal
  640.   set event5 = 466 + 50 -- daily mail
  641.   set event6 = 594 + 50 -- northcliffe
  642.   set event7 = 650 + 50 --
  643.   
  644.   
  645.   
  646.   
  647.   
  648.   if (TC > event1 and TC <= event2) then
  649.     doEvent1 6, TRUE, 0, 1, 12, FALSE  
  650.   else if (TC > event2 and TC <= event3) then
  651.     doEvent2 7, TRUE, 0, 1, 12, FALSE 
  652.   else if (TC > event3 and TC <= event4) then
  653.     doEvent3 8, TRUE, 0, 1, 12, FALSE  
  654.   else if (TC > event4 and TC <= event5) then
  655.     doEvent4 9, TRUE, 01, 1, 8, FALSE   
  656.   else if (TC > event5 and TC <= event6) then
  657.     doEvent5 10, TRUE, 01, 1, 8, FALSE    
  658.   else if (TC > event6 and TC <= event7) then
  659.     doEvent6 11, TRUE, 03, 1, 8, FALSE    
  660.   end if 
  661.   return
  662.   
  663.   
  664. end
  665.  
  666.  
  667. on D43
  668.   global QTsprite, QTspriteDuration, QTspriteName, TC
  669.   global hblind, vblind
  670.   set event1 = 160 --
  671.   set event2 = 250 --
  672.   set event3 = 350 --
  673.   set event4 = 450 --
  674.   
  675.   if (TC > event1 and TC <= event2) then
  676.     doEvent1 6, TRUE, hblind, 1, 8, FALSE  
  677.   else if (TC > event2 and TC <= event3) then
  678.     doEvent2 7, TRUE, vblind, 1, 8, FALSE 
  679.   else if (TC > event3 and TC <= event4) then
  680.     doEvent3 8, TRUE, hblind, 1, 8, FALSE      
  681.   end if 
  682.   return
  683.   
  684. end
  685.  
  686. on D44
  687.   global QTsprite, QTspriteDuration, QTspriteName, TC
  688.   global hblind, vblind
  689.   set event1 = 50 --
  690.   set event2 = 90 --
  691.   set event3 = 100 --
  692.   set event4 = 300 --
  693.   
  694.   
  695.   
  696.   
  697.   if (TC > event1 and TC <= event2) then
  698.     doEvent1 6, TRUE, hblind, 1, 8, FALSE  
  699.     
  700.   end if 
  701.   
  702.   return
  703.   
  704. end
  705.  
  706. on D45
  707.   global QTsprite, QTspriteDuration, QTspriteName, TC
  708.   global hblind, vblind, wipedown
  709.   set event1 = 60 --
  710.   set event2 = 120 --
  711.   set event3 = 180 --
  712.   set event4 = 300 --
  713.   
  714.   if (TC > event1 and TC <= event2) then
  715.     doEvent1 6, TRUE, wipedown, 1, 6, FALSE  
  716.   else if (TC > event2 and TC <= event3) then
  717.     doEvent2 7, TRUE, wipedown, 1, 6, FALSE 
  718.   end if 
  719.   
  720.   return
  721.   
  722. end
  723.  
  724. on D46
  725.   global QTsprite, QTspriteDuration, QTspriteName, TC
  726.   global hblind, vblind, hcentreout
  727.   set event1 = 100 --
  728.   set event2 = 200 --
  729.   set event3 = 280 --
  730.   set event4 = 380 --
  731.   
  732.   if (TC > event1 and TC <= event2) then
  733.     doEvent1 6, TRUE, hblind, 1, 12, FALSE  
  734.   else if (TC > event2 and TC <= event3) then
  735.     doEvent2 7, TRUE, vblind, 1, 12, FALSE 
  736.   else if (TC > event3 and TC <= event4) then
  737.     doEvent3 8, TRUE, hcentreout, 1, 4, FALSE      
  738.   end if 
  739.   return
  740.   
  741.   
  742. end
  743.  
  744. --set event1 =  --
  745. --set event2 =  --
  746. --set event3 =  --
  747. --set event4 =  --
  748. --set event5 =  --
  749. --set event6 =  --
  750. --set event7 =  --
  751. --set event8 =  --
  752. --set event9 =  --
  753. --
  754. --
  755. --
  756. --
  757. --if (TC > event1 and TC <= event2) then
  758. --  doEvent1 6, TRUE, 01, 1, 4, FALSE  
  759. --else if (TC > event2 and TC <= event3) then
  760. --  doEvent2 7, TRUE, 01, 1, 4, FALSE 
  761. --else if (TC > event3 and TC <= event4) then
  762. --  doEvent3 8, TRUE, 01, 1, 4, FALSE  
  763. --else if (TC > event4 and TC <= event5) then
  764. --  doEvent4 9, TRUE, 01, 1, 4, FALSE   
  765. --else if (TC > event5 and TC <= event6) then
  766. --  doEvent5 10, TRUE, 01, 1, 4, FALSE    
  767. --else if (TC > event6 and TC <= event7) then
  768. --  doEvent6 11, TRUE, 01, 1, 4, FALSE    
  769. --else if (TC > event7 and TC <= event8) then
  770. --  doEvent7 12, TRUE, 01, 1, 4, FALSE     
  771. --else if (TC > event8 and TC <= event9) then
  772. --  doEvent8 13, TRUE, 01, 1, 4, FALSE    
  773. --  
  774. --  
  775. --end if